module Text.XML.XSD.XsdRename where
import qualified Data.Map as Map
import Text.XML.Xmlable

f = {- setNewTypeField "Sequence" XtElem "element"
    . -} changeNames (Map.fromList $ zip ["Schema"] ["schema"])
    . changeFieldNames (Map.fromList $ zip ["ctName", "ctSequence", "eName", "eType", "sImport"] ["name", "sequence", "name", "type", "import"])
